home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 April / Software of the Month - Ultimate Collection Shareware 260.iso / pc / Games.dir / 00001_Script_1 next >
Text File  |  1999-02-02  |  5KB  |  203 lines
  1.  
  2. on startMovie
  3.   
  4.   
  5.   
  6.   global HYPER,REQUIREMENTS
  7.   
  8.   set REQUIREMENTS to the memberNum of member "REQUIRETEXT"
  9.   set HYPER to the memberNum of member "HYPERTEXT"
  10.   
  11.   global  LINECLICK,LASTCLICK
  12.   set LASTCLICK to 1
  13.   set LINECLICK to 1
  14.   set the forecolor of member "progDisplay" to 255 -- set text to black
  15.   set the forecolor of line LINECLICK of member "progDisplay" to 0
  16.   setpath()
  17.   
  18.   
  19.   --* This declares the variables for the finger cursor. *
  20.   
  21.   global FINGER, FINGERMASK,MAGNIFY, MAGNIFY2, MAGNIFYMASK
  22.   set FINGER to the memberNum of member "Finger1"
  23.   set FINGERMASK to the memberNum of member "Finger2"
  24.   set MAGNIFY to the memberNum of member "MAGGLASS"
  25.   set MAGNIFY2 to the memberNum of member "MAGGLASS2"
  26.   set MAGNIFYMASK to the memberNum of member "MAGGLASS1"
  27.   glowClear()
  28.   
  29. end
  30.  
  31.  
  32. --* This handler hides/shows the glow images. eg: glow(5,TRUE) *
  33.  
  34. on glow WHICHSPRITE, TRUEORFALSE
  35.   set the visible of sprite WHICHSPRITE to TRUEORFALSE
  36. end glow
  37.  
  38. --* TURN OF ALL GLOWS ON START
  39. on glowClear
  40.   repeat with i = 19 to 36
  41.     glow(i)
  42.   end repeat
  43. end
  44.  
  45. --* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*
  46.  
  47. on textglow WHICHMEMBER, COLORNUMBER
  48.   set the foreColor of member WHICHMEMBER to COLORNUMBER  
  49. end textglow
  50.  
  51.  
  52. --* THIS HANDLER EXAMPLE OF DISABLEING HOTSPOTS WHEN RUNNING MIAW*
  53. --on mouseEnter
  54. --  if not count(the windowList) then
  55. --    doRollover(52)
  56. --  end if
  57. --end
  58. --
  59. --
  60. --on mouseLeave
  61. --  if not count(the windowList) then
  62. --    doRollout(52)
  63. --  end if
  64. --end
  65.  
  66.  
  67.  
  68. --* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *
  69.  
  70. on openMIAW MYWINDOW
  71.   set myRect=the rect of window MYWINDOW
  72.   set myStage=the rect of the Stage
  73.   set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  74.   set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  75.   set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  76.   set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  77.   set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  78.   set the rect of window MYWINDOW=myNewRect
  79.   set the windowType of window MYWINDOW to 2
  80.   open window MYWINDOW
  81. end openMIAW
  82.  
  83.  
  84. --* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *
  85.  
  86. on doRollover NUMSPRITE,NUMSOUND
  87.   glow(numsprite,TRUE)
  88.   --  global finger,fingermask
  89.   --  cursor[finger,fingermask]  
  90.   case  NUMSOUND of      
  91.     1: puppetsound 1, "Scissors"
  92.     2: puppetsound 1, "Butane"
  93.     3: puppetsound 1, "Scissors"
  94.     4: puppetsound 1, "Scissors"
  95.   end case 
  96.   updatestage
  97. end
  98.  
  99.  
  100. -- set which cursor to use
  101.  
  102. on mycursor WHICHCURSOR
  103.   
  104.   global finger,fingermask,MAGNIFY,MAGNIFY2,MAGNIFYMASK
  105.   
  106.   case  WHICHCURSOR of      
  107.     1: cursor[finger,fingermask]  
  108.     2: cursor [MAGNIFY,MAGNIFYMASK]
  109.     3: cursor [MAGNIFY2,MAGNIFYMASK]      
  110.   end case 
  111.   updatestage
  112.   
  113. end
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120. --* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
  121. on doRollout numsprite
  122.   glow(numsprite,FALSE)
  123.   cursor 0
  124. end
  125.  
  126. --* PLAYS A CLICK SOUND
  127.  
  128. on doClick
  129.   puppetsound 1,"close"
  130.   updateStage
  131. end
  132.  
  133.  
  134. on doZoomout numsprite,soundwait
  135.   puppetsound 1, "close"  
  136.   if soundwait then
  137.     repeat while soundbusy (1)
  138.     end repeat
  139.     set soundwait to FALSE
  140.   end if
  141.   glow(numsprite, TRUE)
  142.   global MAGNIFY2, MAGNIFYMASK
  143.   cursor [MAGNIFY2,MAGNIFYMASK]
  144.   updatestage
  145. end
  146.  
  147. on doZoomin numsprite,soundwait
  148.   puppetsound 1, "close"  
  149.   if soundwait then
  150.     repeat while soundbusy (1)
  151.     end repeat
  152.     set soundwait to FALSE
  153.   end if
  154.   glow(numsprite, TRUE)
  155.   global MAGNIFY, MAGNIFYMASK
  156.   cursor [MAGNIFY,MAGNIFYMASK]
  157.   updatestage
  158. end
  159.  
  160.  
  161. on setpath
  162.   Global SETUPPATH95,LINECLICK
  163.   
  164.   case LINECLICK of
  165.       
  166.     1:set SETUPPATH95 to line 1 of Field "SETUPS" 
  167.       
  168.     2:set SETUPPATH95 to line 2 of Field "SETUPS"
  169.       
  170.     3:set SETUPPATH95 to line 3 of Field "SETUPS"
  171.       
  172.     4:set SETUPPATH95 to line 4 of Field "SETUPS"
  173.       
  174.     5:set SETUPPATH95 to line 5 of Field "SETUPS"
  175.       
  176.     6:set SETUPPATH95 to line 6 of Field "SETUPS"
  177.       
  178.     7:set SETUPPATH95 to line 7 of Field "SETUPS"
  179.       
  180.     8:set SETUPPATH95 to line 8 of Field "SETUPS"
  181.       
  182.     9:set SETUPPATH95 to line 9 of Field "SETUPS"
  183.       
  184.     10:set SETUPPATH95 to line 10 of Field "SETUPS"
  185.       
  186.     11:set SETUPPATH95 to line 11 of Field "SETUPS"
  187.       
  188.       
  189.       
  190.   end case
  191.   
  192. end
  193.  
  194.  
  195.  
  196.  
  197. -- Delays for x number of seconds
  198. on timedelay SECONDS 
  199.   startTimer
  200.   repeat while the timer < SECONDS * 60
  201.     nothing
  202.   end repeat    
  203. end